home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / LOGO / H282.ZIP / MSWLOGO.ZIP / LOGOLIB.ZIP / MAP.SE < prev    next >
Encoding:
Text File  |  1992-10-29  |  411 b   |  16 lines
  1. to map.se :map.se.template [:template.lists] 2
  2. op map.se1 :template.lists 1
  3. end
  4.  
  5. to map.se1 :template.lists :template.number
  6. if emptyp first :template.lists [output []]
  7. output sentence (apply :map.se.template firsts :template.lists) ~
  8.                 (map.se1 bfs :template.lists :template.number+1)
  9. end
  10.  
  11. to ?rest [:which 1]
  12. output bf item :which :template.lists
  13. end
  14.  
  15. bury [map.se map.se1 ?rest]
  16.